home *** CD-ROM | disk | FTP | other *** search
- Private Sub cmdBuildNetwork_Click()
-
- Dim NSApp As Object
- Dim NSBB As Object
- Dim inputFilePath As String
- Dim desiredFilePath As String
-
- Set NSApp = CreateObject("NeuroSolutions.Application")
- Set NSBB = NSApp.activeBreadboard
-
- NSApp.maximize
-
- NSBB.setAnimatePoint 20, 225
- NSBB.stampAndMove "Axon", "inputAxon"
- NSBB.send "inputAxon. setRows ( 2 )"
- NSBB.setAnimatePoint 110, 225
- NSBB.stampAndMove "FullSynapse", "hidden1Synapse"
- NSBB.send "inputAxon. connectTo ( ""hidden1Synapse"" )"
- NSBB.setAnimatePoint 200, 225
- NSBB.stampAndMove "TanhAxon", "hidden1Axon"
- NSBB.send "hidden1Axon. setRows ( " & txtHiddenPEs.Text & " )"
- NSBB.send "hidden1Synapse. connectTo ( ""hidden1Axon"" )"
- NSBB.setAnimatePoint 290, 225
- NSBB.stampAndMove "FullSynapse", "outputSynapse"
- NSBB.send "hidden1Axon. connectTo ( ""outputSynapse"" )"
- NSBB.setAnimatePoint 380, 225
- NSBB.stampAndMove "TanhAxon", "outputAxon"
- NSBB.send "outputSynapse. connectTo ( ""outputAxon"" )"
- NSBB.setAnimatePoint 470, 225
- NSBB.stampAndMove "L2Criterion", "criterion"
- NSBB.send "criterion. setRows ( 1 )"
- NSBB.send "outputAxon. connectTo ( ""criterion"" )"
- NSBB.setAnimatePoint 15, 200
- NSBB.stampAndMove "StaticControl", "control"
- NSBB.stampOnAndMove "BackStaticControl", "control"
- NSBB.send "controlBackprop. setGradientClassName ( ""Momentum"" )"
- NSBB.send "controlBackprop. allocateBackpropPlane ( )"
- NSBB.stampOnAndMove "File", "inputAxon"
-
- NSBB.send "file. setName ( ""inputFile"" )"
- NSBB.send "inputFile. setActiveAccessPoint ( ""Pre-Activity"" )"
- inputFilePath = NSApp.pathFromNS("Demos\OLE Automation\box.asc")
- NSBB.send "inputFile. addFile ( """ & inputFilePath & """ , False )"
- NSBB.send "inputFile. setUseDefaultTranslatorForActiveFile ( FALSE,FALSE )"
- NSBB.send "inputFile. setActiveTranslatorName ( ""ASCII - Column"",FALSE )"
- NSBB.send "inputFile. setNormalize ( FALSE )"
-
- NSBB.stampOnAndMove "File", "criterion"
- NSBB.send "file. setName ( ""desiredFile"" )"
- NSBB.send "desiredFile. setActiveAccessPoint ( ""Desired Signal"" )"
- desiredFilePath = NSApp.pathFromNS("Demos\OLE Automation\boxDesired.asc")
- NSBB.send "desiredFile. addFile ( """ & desiredFilePath & """ ,FALSE )"
- NSBB.send "desiredFile. setUseDefaultTranslatorForActiveFile ( FALSE,FALSE )"
- NSBB.send "desiredFile. setActiveTranslatorName ( ""ASCII - Column"",FALSE )"
- NSBB.send "desiredFile. setNormalize ( FALSE )"
-
- NSBB.stampOnAndMove "DataStorage", "criterion"
- NSBB.send "dataStorage. setActiveAccessPoint ( ""Average Cost"" )"
- NSBB.stampOnAndMove "MatrixViewer", "dataStorage"
- NSBB.send "matrixViewer. setName ( ""trainingCostProbe"" )"
-
- NSBB.Select "Null", False
-
- End
- End Sub
-